home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / ZOSTEPUP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  4.3 KB  |  157 lines
  1. 10  'ZOSTEPUP - Folded Dipole Zo Step-up Ratios - 20 NOV 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  U$="####.##"
  6. 60  GOTO 190
  7. 70  '
  8. 80  '.....clear bottom of screen
  9. 90  VIEW PRINT LN TO 24:CLS:VIEW PRINT:LOCATE LN
  10. 100  RETURN
  11. 110  '
  12. 120  BEEP:LN=CSRLIN:PRINT :COLOR  0,7
  13. 130  PRINT " Spacing between d1 and d2 is excessive. Try again using different "
  14. 140  PRINT " diameters for d1 and/or d2. Press any key to start over . . . . . "
  15. 150  COLOR 7,0
  16. 160  IF INKEY$=""THEN 160
  17. 170  LN=11:GOSUB 80:GOTO 190
  18. 180  '
  19. 190  '.....start
  20. 200  CLS
  21. 210  COLOR 15,2
  22. 220  PRINT " FOLDED DIPOLE Zo STEP-UP RATIOS";TAB(57);"by George Murphy VE3ERP ";
  23. 230  COLOR 1,0:PRINT STRING$(80,223);
  24. 240  COLOR 7,0
  25. 250  GOSUB 1050    'diagram
  26. 260  PRINT
  27. 270  GOSUB 1160    'preface
  28. 280  COLOR 0,7:LOCATE 25,22
  29. 290  PRINT " Press 1 to continue or 0 to EXIT....";:COLOR 7,0
  30. 300  Z$=INKEY$:IF Z$=""THEN 300
  31. 310  IF Z$="0"THEN CLS:RUN EX$
  32. 320  IF Z$="1"THEN 340
  33. 330  GOTO 300
  34. 340  LN=9:GOSUB 80
  35. 350  '
  36. 360  '.....input data
  37. 370  S=0:SP=0
  38. 380  LN=CSRLIN
  39. 390  INPUT " ENTER: Antenna feed point impedance (ohms)...........";Z1
  40. 400  INPUT " ENTER: Feedline characteristic impedance (ohms)......";Z2
  41. 410  Z3=Z2/Z1
  42. 420  GOSUB 80
  43. 430  PRINT "        Antenna feed point impedance..................";USING U$;Z1;
  44. 440  PRINT " ohms"
  45. 450  PRINT "        Feedline characteristic impedance.............";USING U$;Z2;
  46. 460  PRINT " ohms"
  47. 470  COLOR 0,7:LN=CSRLIN
  48. 480  PRINT " Do you want dimensions in (m)illimetres or (i)nches?  (m/i) "
  49. 490  COLOR 7,0
  50. 500  Z$=INKEY$:IF Z$=""THEN 500
  51. 510  IF Z$="i"THEN UM=1:UM$="in.":GOTO 540
  52. 520  IF Z$="m"THEN UM=25.4:UM$="mm.":GOTO 540
  53. 530  GOTO 500
  54. 540  GOSUB 80
  55. 550  '
  56. 560  PRINT " ENTER: Diameter of feedline d1 wire or rod (";UM$;").....";
  57. 570  INPUT D:D1=D/UM
  58. 580  GOSUB 80
  59. 590  PRINT "        Diameter of feedline wire or rod...........d1=";
  60. 600  PRINT USING U$;D1*25.4;:PRINT " mm. =";USING U$;D1;:PRINT " in."
  61. 610  '
  62. 620  LN=CSRLIN
  63. 630  PRINT " ENTER: Diameter of antenna element d2 (";UM$;")..........";
  64. 640  INPUT D:D2=D/UM
  65. 650  GOSUB 80
  66. 660  PRINT "        Diameter of antenna element................d2=";
  67. 670  PRINT USING U$;D2*25.4;:PRINT " mm. =";USING U$;D2;:PRINT " in."
  68. 680  '
  69. 690  PRINT "        Impedance step-up ratio.......................";USING U$;Z3;
  70. 700  PRINT ":1"
  71. 710  IF D1<>D2 THEN 790
  72. 720  LN=CSRLIN
  73. 730  LOCATE LN-4,55:PRINT USING U$;Z1*4
  74. 740  LOCATE LN-1,55:PRINT USING U$;4
  75. 750  LOCATE LN
  76. 760  PRINT "        Centre-to-centre spacing S is not critical."
  77. 770  GOTO 1400   'end
  78. 780  '
  79. 790  LN=CSRLIN:COLOR 0,7:PRINT " Iterating....please wait....":COLOR 7,0
  80. 800  S=(D1+D2)    'minimum spacing
  81. 810  '
  82. 820  '.....iteration
  83. 830  S=S+0.000999999
  84. 840  IF S/D2>20 THEN 120
  85. 850  A=LOG(2*S/D1)
  86. 860  B=LOG(2*S/D2)
  87. 870  R=(1+A/B)^2
  88. 880  IF D1=D2 THEN 950
  89. 890  IF D2>D1 AND R<=Z3 THEN 930
  90. 900  IF D2<D1 AND R>=Z3 THEN 930
  91. 910  GOTO 830
  92. 920  '
  93. 930  '.....display results
  94. 940  S=S-0.000499999
  95. 950  IF SP<>0 THEN S=SP
  96. 960  GOSUB 80
  97. 970  PRINT "        Centre-to-centre between d1 and d2..........S=";
  98. 980  PRINT USING U$;S*25.4;:PRINT " mm. =";USING U$;S;:PRINT " in."
  99. 990  PRINT "          ratio d2/d1 ................................";
  100. 1000  PRINT USING U$;D2/D1;:PRINT ":1"
  101. 1010  PRINT "          ratio S/d2 .................................";
  102. 1020  PRINT USING U$;S/D2;:PRINT ":1"
  103. 1030  GOTO 1400   'end
  104. 1040  '
  105. 1050  '.....diagram
  106. 1060  COLOR 0,7:X=20
  107. 1070  LOCATE ,X:PRINT "                                         "
  108. 1080  LOCATE ,X:PRINT "    ERRTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENOPTIONDEFSNGSOUND d2 "
  109. 1090  LOCATE ,X:PRINT " SSOUNDDEFDBLCALL                             CALL      "
  110. 1100  LOCATE ,X:PRINT "    ERLTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENOPTION ERRTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENSAVEDEFSNGSOUND d1 "
  111. 1110  LOCATE ,X:PRINT "               feed point                "
  112. 1120  LOCATE ,X:PRINT "                                         "
  113. 1130  COLOR 7,0
  114. 1140  RETURN
  115. 1150  '
  116. 1160  '.....preface
  117. 1170  TB=7
  118. 1180  PRINT TAB(TB);
  119. 1190  PRINT "The feed point impedance of a RENUM-wave dipole is about 70 -. A folded"
  120. 1200  PRINT TAB(TB);
  121. 1210  PRINT "dipole has an inherent impedance step-up ratio of 4:1 if all the"
  122. 1220  PRINT TAB(TB);
  123. 1230  PRINT "conductors in the dipole are the same diameter."
  124. 1240  PRINT
  125. 1250  PRINT TAB(TB);
  126. 1260  PRINT "Impedance ratios larger than 4:1 are frequently desirable when the"
  127. 1270  PRINT TAB(TB);
  128. 1280  PRINT "folded dipole is used as the driven element in a directive array,"
  129. 1290  PRINT TAB(TB);
  130. 1300  PRINT "because the radiation of such an array is usually quite low. A wide"
  131. 1310  PRINT TAB(TB);
  132. 1320  PRINT "choice of impedance step-up ratios is available by varying the"
  133. 1330  PRINT TAB(TB);
  134. 1340  PRINT "relative sizes d1 & d2 and spacing S of the conductors."
  135. 1350  PRINT
  136. 1360  PRINT TAB(TB);
  137. 1370  PRINT "( The ARRL ANTENNA BOOK, 17th Edition, pages 2-32 and 2-33.)"
  138. 1380  RETURN
  139. 1390  '
  140. 1400  '.....end
  141. 1410  GOSUB 1440:GOTO 190
  142. 1420  END
  143. 1430  '
  144. 1440  'HARDCOPY
  145. 1450  GOSUB 1560:LOCATE 25,2:COLOR 14,6
  146. 1460  PRINT " Press 1 to print screen, 2 to print screen & ";
  147. 1470  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  148. 1480  Z$=INKEY$:IF Z$="3"THEN GOSUB 1560:RETURN
  149. 1490  IF Z$="1"OR Z$="2"THEN GOSUB 1560:GOTO 1510
  150. 1500  GOTO 1480
  151. 1510  FOR QX=1 TO 24:FOR QY=1 TO 80
  152. 1520  LPRINT CHR$(SCREEN(QX,QY));
  153. 1530  NEXT QY:NEXT QX
  154. 1540  IF Z$="2"THEN LPRINT CHR$(12)
  155. 1550  GOTO 1450
  156. 1560  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  157.